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3 p++ 
: Facility: RMS32 


0 
0; 
1 ; Abstract: 
; ; This module provides sequential file organization- 
8 Z : specific processing for the $GET and $FIND functions. 
$00 5 : Environment: 
4 § : STAR processor running STARLET EXEC. 
208 8 ; Author: L F Laverdure, CREATION DATE: 4-Feb-1977 
$0 40 : Modified By: | 
000 41; 
BO g ; v03-006 RASO278 Ron Schaefer 24-Mar-1984 
4 re ; Minor tweaking for performance/size. 
$000 45: v03-005 RASO120 Ron Schaefer 25-Jan-1983 
44 rf ; Add support to echo SYS$INPUT to SYSSOUTPUT. 
0000 48 ; v03-004 KBT0414 Keith B. Thosgeen 30-Nov-1982 | 
4464 $ : Change ifb$w_devbufsiz to ifb$l_devbufsiz 
0000 s«51:; v03-003 KBT0340 Keith B. Thompson 16-Sep-1982 
4444 26 ; Correct some opps from kbt0086 
0000 54: v03-002 KBT0139 Keith 8. Thompson 20-Aug-1982 
444 2? ; Reqoranize psects 
0000 57; v03-001 KBT0086 Keith B. Thompson 13-Jul-1982 
4 28 : Clean up psects 
0000 60; v02-022 RAS0063 Ron Schaefer 29-Jan-1982 
sit 6) 3 Correct probes of user key and record buffers. 
0000 8 : V02-021 JWHOOO1 Jeffrey W. Horn 31-DEC-1981 I 
4464 rf: : Fix broken branches. ' 
0000 66; v02-020 RASO018 Ron Schaefer 7-Aug-1981 | I 
44 44 ; Fix broken branch caused by stream files. : 
000 69: V02-019 REFORMAT Frederick E. Deen, Jr. 28-Jul-1980 | 
000 oy : This code was reformatted to adhere to RMS standards i 
$00 e : v0O18 cdS0001 C D Saether 11-Mar-1980 I 
0000 73; Fix divide by 0 caused by record size > blocksize and I 
000 74; no span attribute set (novsense combination). Don't I 
000 75 3 look at RAC in RAB to determine whether saved NRP context I 
444 6 § on find is to be restored. : 
0900 of : ¥017 JAKO0001 J A Krycka oT Aug” 198 J 
000 79 ; Miscellaneous clean-up prior to DECNET V1.0 code freeze. I 
0000 B1 : Add code to support network access by key. : 
000 2 i-- 
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-SBTTL RMSGETI/RMSFIND1 = SEQ. SGET & SFIND 


++ 
RMSGET1/RMSFIND1 = Common sequential file organization for $GET and $F IND 
This module performs the following functions: 

1. Common $GET/SFIND setu 

2. For UNIT RECORD DEVICES calls RMSGET_UNIT_REC 

otherwise, performs additional setup and calls RMSGET_BLK_DEV 

3. Set "LAST-CPERATION-WAS-A-F IND’’ and NRP context 

CALLING SEQUENCE: 


Entered via CASE branch from RMSS$GET 
or RMSSFIND at RMS$GET1 or RMSFIND1 respectively. 


EXIT is to user via RMSEXRMS. 


INPUT PARAMETERS: 


R11 IMPURE AREA address 
R10 IFAB address 
RO IRAB address 
R8 RAB address 


IMPLICIT INPUTS: 


The contents of the RAB and RELATED IRAB and IFAB. 
In particular, IRBSV_FIND must be set if doing SFIND, else clear. 


OUTPUT PARAMETERS: 
R7 = R1 De 
RO ST 


IMPLICIT OUTPUTS: 


Various fields of the RAB are filled in to reflect the status of 
the operation (see functional spec for details). 


The IRAB is similarly updated. 


; COMPLETION CODES: 

STANDARD RMS (see functional spec). 
SIDE EFFECTS: 

None 


H 11 


0 CASE 


TYPE=B, SRC=RABS$B_RAC(R8) ,- 
DISPLIST=<GETSEQ, GETKEY, GE TRF A> 


SPECIFIC GET 16-SEP-1984 00:47:3 AX/VMS Macro v04-00 Page 
thoA = SEQ. SGET & SFIND ot 90:55:39 YAMS SRCIRMI GET MARS? ° (3) 
171 RMSGET1:: 

fe STSTPT GET1 

17 CLRW RABSW_RSZ(RB) ; init the RSZ field 

174 TSTwW a tg ECHO_ISI(R10) 3; any ISI value? 

175 BEQL RMSF INDI 3 no echo if not 

178 BBC #IFBSV_PPF_INPUT,(R10),RMSFIND1 ; not if not sysin 

17 BBC #IRBSV_PPF we (R9),RMSFIND1 ; not if not indirect 

178 CSB #IRBSV-ASYAC, (ROS : force synchronous 

179 SSB #IRBSV~PPF_ECHO, (R9) : ask for echo 

181 ; 

} § ; Make user input valid checks 

184 ° 

185 RMSFIND1:: 

1 $ STSTPT FIND1 

1 CLRW IRBSW_CSIZ(R9) ; clear current record size 
138 ; indicates no current record 
4 : Check for UNIT RECORD DEVICE and if so dispatch to appropriate code 

192 ° 

198 ASSUME DEVSV_REC EQ 0 

13¢ BLBS IFBSL_PRIM_DEV(R10) ,GET_UR : branch if UNIT RECORD 

196 ; 

: ; ; Files oriented device - dispatch on record access type 

199 ° 

2 

2 
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RMIGET SEQUENTIAL SPECIFIC GET 16-SEP-1984 7:3 AX/VMS Mac 2, YOR o0 Page 
y04"600 RMS$GET1/RM bs? Tod - SEQ. SGET & SFIND =-SEP=-1984 90:3 5:39 FRMS. SRCIRM 1GET. MAR; 1 . 
FF 
: ¢ 3 Handle errors 
8 ERRRAC: RMSERR RAC 
2D =o $ BRB G_XIT 
18 E0 8 C 10 ERRRFA: BBS #DEVSV_FOR,- ; allow LBN O for NFS operation 
46 6A 9 11 IFBSL_PRIM_DEV(R10) ,RFAOFF 
4 i RMSERR RFA 
22. «171 be 1? BRB G_XIT 
47 15 ERRIOP: RMSERR IOP 
1B Oo bee 1 BRB G_XIT 
04 6A $5 €1 be 18 EPRSQO: BBC #IFBSV_PPF_INPUT,(R10),10$ ; branch if not ‘INPUT’ 
2B 69 £1 5 1 BBC #IRBSV_PPF_ IMAGE, (R9), TSTRFA 3; continue if not image 
05 $9 10$: RMSERR S$Q0 3 not SEQ. operation 
11 058 1 BRB G_XIT 
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T 
. SGET & S$ 


> GET for UNIT 


ASSUME 
GET_UR: BBS 

TSTB 

BNEQ 
10$: BSB 
G_XIT: BRB 


; Keyed access 


GETKEY: BSBW 
BLBC 


: GET by RFA 


GETRFA: 
ASSUME 
MOVQ 
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FIND pa19B6 6:35:18 


RECORD DEVICE 
RABSC_SEQ EQ 0 
#1FBS0_DAP,(R10),10$ 
RABS$B_RAC(RB) 


RMSGET_UNIT_REC 
GETXIT 


type 

RMSSEQKEY 

RO,GETXIT 

#IRBSV_FIND, (R9), 108 
IRB$W_ARP_OFF EQ [RBS$L_NRP_VBN+4 
IRBSL-NRP_VBN(R9), =(SP) 


AX/VMS Macro v04-00 


RMS.SRCJRMIGET.MAR; 1 ( 


branch if network operation 
allow sequential access only 
branch on error 

perform UNIT RECORD GET 

and branch to GET EXIT 


convert key to RFA 
get out on error 


; branch if doing $GET 
; save NRP context for random 


FIND keeping stack long aligned 


; branch if no random access 


branch 
zero RFA? 
branch if yes 

offset within a block? 


if $Q0 specified 
A? 


; branch if not 


copy RFA to 


NRP 
; guarantee offset valid long word 


10$: BBC #DEVSV_RND,- 
IFBSL PRIM_DEV(R10) ,ERRIOP 
BBS #1FB$T_SQ0, (R10) ,ERRSQO 3 
TSTRFA: TSTL RABSW_RFACRB) F 
EQL ERRRFA : 
RFAOFF: CMPW RABSW_RFA+4(R8) ,- : 
6 IFBSL_DEVBUFS1Z(R10) 
64 GEQU ERRRFA : 
65 ASSUME IRBSW_NRP_OFF EQ IRBSL_NRP _VBN+4 
6 va RABSU_RFATRS) » [RBS{ _NRP_VBR(R9) ; 
67 CLRW  =IRBSLINRP_OFF+2(R9) : 
9 ; 
0; Do final petvps for random access GET. 
4 ; Clear LAST FIND and EOF status bits. 
7? — 
74 BICB2 #<1a<IRBS$V_FIND_LAST-BKP>>!- 
75 <18<IRBS$V_EOF-BRP>>, IRBSL_BKPBITS(R9) 


; Determine number of blocks to read in based upon the longest record 


in the file. 
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F046 500 Sa See TT Smee rip - SEQ. SGET & SFIND g-seF 138 90:3 $379 FRMS. SRCIRM iGeT. MAR; ° 3) 
ae 
44 49 Al 99 ADDW3 IRBSW_NRP_OFF(R9),- 3 compute total # bytes needed 
52 52 AA 3c RS 1FBSUTLRLTRIO) -R2 ; F 
1 AA 91 009F 4 CMPB JEBSB_RFRORG (RIO) ,#F ABSC FIX ; fixed Length records? 
0 3 BAe 5 BEQL $ 3; branch if yes 
52 2 A A § ADDW2 #2,R2 3; add in size field overhead 
B7 QOA8 10$: DECW & : roe down 
te: ee 2 34 ~~ 88 EXTZV #9,#7,R2,R2 3 get 2 blks - 1 
55 A9 : 1 QOAF 289 CMP Re TRB$B_MBC(R9) > < MBC? 
1 1 0B 90 BGEQU 30$ t branch if not 
53 0 4 B 91 MOVL #2,R3 ; set flag for short read 
FF45° 35 BSBW RMSGE TRANDOM ; gor read and return the recore 
18 69 29 €E1 088 935 20$: BBC ths ty FIND a GETXIT 3; all done if this was a GET 
O0BF 9% ASSUME IRBSW_ARP OFF EQ IRBSL_NRP_VBN+4" 
40 a9 3 7D OOBF 95 MOVQ (SP)+> IRBSL PARP. VBN(R9) ; clean saved NRP info off STACK 
12 «11 Oc3 96 BRB GETXIf : all done 
0c 97 30S: 
FF38" 30 00C5 98 BSBW RMASGET_BLK_DEV ; GET the record 
Fi 11 00C8 99 BRB 20$ 3; return to mainline 
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: Sequential access $GET 


OOoCwooocoo zm 


NAUSEA $9 OO NOUS WN 0 OONOA UNE WH S(O OONOUE WH TO 


»ALIGN LONG 


GETSEQ: 
BBS #IRBSV_FIND, (R9) ,GETSQ1 3; branch if doing $FIND 
BBS #IRBSV_FIND_LAST,(R9) ,RESET_NRP ; branch if SFIND was Last 
GETSQ1: BSBW RMSGET_BLK_BEV 3 go get the record 
p++ 
: Exit GET function. Set LAST-OPERATION-WAS-A-FIND status as required. 
GETXIT: CSB #IRBSV_FIND_LAST, (R9) ; clear LAST-OPERATION WAS A FIND 
BSC #IRBSV_FIND,(R9) ,FNDXIT ; branch if doing a FIND 
CHKERR: BLBC RO,GETERR : branch on error 
EXIT:  BRW RMSE XRMS : RO still has SUC/ERR code 


+ 
+ 


This is a $GET operation after a SFIND. Reset NRP to RP. 


ASSUME IRBSW_RP_OFF EQ IRBS$L_RP_VBN+4 
ASSUME IRBSWINRP_OFF EQ IRBSC_NRP_VBN+4 


RESET_NRP: 
MOV $IRBSL_RP_VBN(R9) ,- : reset NRP 
IRB$L NRE VBN(R9S 

BBCC #1RBS_EOF,(R9) ,GETSO1 make sure EOF flag off 


rejoin GET code 
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39 

2 p++ 

i ; Exiting from a SFIND. Check for PROCESS-PERMANENT FILE special processing 
rf ; and setting of the FIND_LAST flag. 

43 to. 

i$ FNDXIT: BLBC RO,GETERR ; branch if operation failed 
rt BBSC #IRBSV_PPF_EOF (R9) ,PPF_EOF 3; branch if SYSSINPUT EOF 

4 BBSC #IRBSVIPPF-SKIP,(R95,PPF SKIP : or must skip record 

50 BBCS #IRBSV-FIND_LAST,(R9S,CHRERR =: set Last opr. was a FIND 

51 BRB CHKERR 3; rejoin GET code 
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;  IRBSV PPF_SKIP was set (now clear). 
; This Tnditates that we have just skipped over a $DECK record on SYSSINPUT. 


Restore IRBSV_FIND from IRBSV_PPF_FNDSV and redo the $FIND or $GET. 


PPF_SKIP: 
0469 30 €E5 . BBCC #IRBSV_PPF_FNDSV,(R9),10$ ; branch if not doing $FIND 
SSB #IRBSV-FINBD, (RI) 3; set FIND bit 
FFI2 = 31 10$: BRW RMSF IND 3; redo $FIND or $GET 


+ 
+ 


IRBEV_PPF_EOF was set (now clear). 
This Tndicates that either a SEOD or user-defined EOD-STRING was seen 
and has been skipped. 


Change status code to RMS$_EOF 


PPF_EOF: 
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RMSERR' EOF 
++ 
An error has occurred. 


Unless error is ‘RTB", zero current record size. 


GETERR: 
81A8 8F 50 861 


3 
62 AY = B4 
CA 


CMPW RO, #RMS$_RIBS*XF FFF was error RTB? 
EXiT1 branch if yes 

CLRW IRBSW_CSIZ(R9) 

BICL2 #<1a<TRB$V_PPF_EOF-BKP>>!- 

<1a<IRBSV_PPF_SKIP-BKP>>!- 

<1a<IRBSV_PPF_ECHO-BKP>>!- 

<18<IRBSV_PPF_FNDSV-BKP>>,- 

IRB$L_BKPBITSTRI) 

RMSEXRMS 


clean up status 


04 A9 0201C000 8F 
FEDA* 


31 EXIT1: BRW 
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invalidate current rec indicator 
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++ 
RMSSEQKEY = Convert rec nbr. to RFA for sequential organization 


This routine converts a record number to an RFA for fixed Length 
records. 


CALLING SEQUENCE: 

BSBW RMSSEQKEY 
INPUT PARAMETERS: 

R10 IFAB address 


WR SO OCONOUE WN O OONOU SEWN" OOONOUS Wn 


R9 IRAB address 

R8 RAB address 

RABSL_KBF Address of buffer having the relative record 
number (RRN) 

RABSB_KSZ Size of key (must be 4 - defaulted if 0) 

I1FBSV_BLK Set if records cross block boundaries 

IFBSW_MRS Fixed record length 

OUTPUT PARAMETERS: 

RABSW_RFA Set to VBN and offset in block for record 

R STATUS code 

R1-R3 Destroyed 


COMPLETION CODES: 
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PIPIPOPIPINYINININPINIDIPUNINININPIPUNINININMIPIPOPYINININIPIPIPYDINPIPIPUNIPYNIPYIPINIPIPIPIPIHINY =o PT 
DS PRAEAAPAAAAA AA AA AA AA AA AAA A AAA AA APAAASASO SASS ASOSASHS <P 


35 
38 Standard RMS, in particular, RAC, KBF, KSZ, KEY, IOP, or SUC. 
38 SIDE EFFECTS: 
39 
40 None. 
l 
rk 
44 RMSSEQKEY:: 
01 50 AA 91 45 CMPB IFBSB_RFMORG(R10) ,#FABSC_FIX 3 must be fixed RFM 
58 3 46 BNEQ ERRRAT1 ; too bad if not 
34 A8 YO C 47 TSTB RABS$B_KSZ(R8) 3; zero size = 4 
06 13 b 48 BEQL 10$ ; default buffer size 
04 34 a8 91 1 49 CMPB RABSB_KSZ(R8&) , 44 : if not default must be 4 
5C 12 5 50 BNEQ ERRKSZ 
+ 483 
35 : Pick up record number getting rid of bias (i.e., there is no record 0) 
, es * 
50 3068 OE 7 2$ 10$: MOVAL anAnsi, KBF (R8),RO ; key buffer addr 
8 5 IFNORD #4,(ROJ,- 3; check access 


IMPLICIT INPUTS: 
| 
| 
| 
| 


“ 

PRL RLRLLL LLL ELLE LEP LLE LESS DV 
= 

ns | 

ae 

me 


jolelelelelelelelelelelelelolelelelelel ole) alaloleal a) - we =P 4 


3 KH 
00000909098 SI NIN SIN NSN NO OAOAOAOOAAOOUM OM 
FW CO OONOUES WN OUWONAUES WN O0Oe Co 


PERE XRXPEMAA AGI SPP PLP LEEW me 
FP NNOCOWWWMIVIVIVIWDIWVIWOH—-$ MOOBWDWDOwDoong <>y} 


C 12 


GET 16-SEP-19 4 
TO CONVERT REC NO. T 5=SEP-1984 
ERRKBE IRB$B_MODE (R9) 
SUBL3 (RO, R1 
BLSS ER hace 


Get record Length, rounding it up 


MOVZWL FBSU_MRS(R10) ,RO 


#1,RO 
MOVZ2WL #512,-(SP) 
BB 


Records cross block boundaries. 


FABS$V_BLK,- 
IFB$B_RAT(R10) ,BLKSET 


AX/VMS Macro V04-00 Page 
RMS.SNCIRM 


1GET «MAR; 1 


3; RRN - 1 
branch if bad 


get fixed rec len 
round up 


useful constant to stack 

GET alternate calc. if 
records don't cross block 
boundaries 


Compute byte address of record in file and convert to VBN and offset. 


EMUL RO,R1,(SP),R2 
EDIV bead by 
SUCRET: RMSSUC 

RSB 


R2,- 
RABSW.. RFACRB), RABSW_RFA+4 (R8) 


ooaeute byte addr = 

RRN - 1)*rounded-rec-len+512 

compute VBN and offset 
(byte-addr/512) 

show success 

and return 


<D 


vw 


o— 
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SEQUENTIAL SPECIFIC GET 1 ~$60= 1288 00:67:78 Ages Macro Vv04-00 Page 14 | 
RMSSEQKEY = ROUTINE TO CONVERT REC NO. T 5=SEP-1984 16:23:1 RMS.SRCJRMIGET.MAR; 1 (16) | 
igs | 
198 2 8 : Alternate calculation for records not allowed to cross block boundaries 
5 D4 188 239 BLKSET: CLRL R d RRN-1 
: 3; zero exten - 
38 C7 190 136 DiVL3 Re (SP) *.R3 3 oe§ # RECS pst block 
171 +49 3; =512/ROUNDED-REC-LEN 
11 13) «0171 4494 BEQL ERRIOP_BR : if zero, record size must be 
17 495 3 greater than 512 which 
17 rh 3 oesn't make sense and we 
17 49 3 don't want to divide by 
17 498 : zero, so ges out 
53 7B 017 499 EDIV R3,R1,R1,R2 ; compute VBN-1 (in R1) | 
0178 500 3; and REC # within BLK (in R2) 
0178 501 ; =(RRN-1)/# RECS-PER-BLK 
01 C1 0178 206 ADDL #1,R1,RABSW_RFA(R8) ; store VBN 
52. AS 017D 50 MULW R2,RO,RABSW_RFA+4(R8) ; and offset (=REC # within BLK 
0182 504 ; * ROUNDED-REC=LEN) 
E3 1 0182 505 BRB SUCRET z: all set 
0184 506 
0184 507 ; 
B13e 508 ; Handle errors 
1846 509; 
0184 310 | 
0184 511 ERRIOP_SR: 
FECO 31 0184 21¢ RW ERRIOP ; extended BRANCH 
0187 513 ERRRAC1: 
0187 514 RMSERR RAC 3; not fixed length records 
0S 018C 515 RSB 
018D 516 
018D 517 ERRKBF: RMSERR KBF : invalid KEY buffer addr 
05 O138 518 RSB 
019 519 ; 
0193 259 ERRKSZ: RMSERR KSZ ; bad KEY size (not 0 or 4) 
05 3138 : 1 RSB 
18 E—1 0199 328 ERRKEY: BBC #DEVSV_FOR,- ; definite error if not for. | 
09 6A 0198 524 IFBSL_PRIM_DEV(R10),10$ 
60 D5 0190 525 TSTL (RO) : ettenpt te read LBN 0? 
05 12 O19F 526 BNEQ 10$ ; branch if not (error) 
10 AB =7C «(OTA sf CLROQ RABSW_RFA(R8) 3 yes, zero Ll 
C1 11 O1A4 528 BRB SUCRET 3 continue 
01A6 268 10$: 
01A6 0 RMSERR KEY ; bad KEY value (not > 0) 
05 O1AB 531 RSB 
8 5 ¢ 
1AC 5 END 


RMIGET 
Symbol table 
$$.PSECT_ EP 
SSRMSTEST 


SSRMS_PBUGCHK 
SSRMS~ TBUGCHK 
$SRMS—UMODE 


FBSB_RFMORG 
FBSL~DEVBUF S1Z 
FBS. ~PRIM_DEV 
FBSVc 
FBSV~PPF_INPUT 
FB 

FB 

FB 

FB 


BSL_BKPBITS 
BSL 


RBSV_PPF_FNDSV 
RBS$V_PPF~ IMAGE 
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SEQUENTIAL SPECIFIC GET 
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RMIGET SEQUENTIAL SPECIFIC GET 19-3 SEP=1 1386 
Psect synopsis -SEP-1984 16:23:1 


Geeeeeoeeeeceeeooes$ 


! Psect synopsis ! 


Pomme rete ema mamma + 


PSECT name Allocation PSECT No. Attributes 

- ABS. 0000 g:) ? 0.) NOPIC USR CON’ ABS 

RMSRMS1 atedtte 42 1.) PIC USR CON’ REL’ GBL NOSH 

SABSS 00000000 < 2.) NOPIC USR CON ABS~ LCL NOSHR 
$omwowooocce ececcoocooce -+ 


ewe nm nem neem ce me em me} 


Phase Page faults CPU Time Elapsed Time 
Initialization 39 00:90: 0.06 00:00:01.05 
ponnene processing 107 00: 3: 0.6 00:00:04.39 
303 00:00:09.63 00:00:27.97 
Syabol table sort 0 00:00:01.24 00:00: 1-67 
106 88:80:08" 7 00:00:05.34 
pees f table output 1 0:00:00.1 00:00:00.46 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output oes Se eS 0 00:00:00.00 
Assembler run totals 561 00:00:13.89 00:00:40.90 


The working set Limit was 1350 pages. 

53909 bytes (106 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 998 non-local and 15 local symbols. 
533 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


SS RS OO eee + 


eee tem ee ee eee meme etme meen em $ 


Macro csoocat? name 


ft fe $.0B/3RMS.W. -MLB;1 12 

$33580uk MLB; 1 é 
ESysi SBISTARLET. MLB; 2 

ste ett’ Libraries) 19 


1105 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM1GET/OBJ=OBJ$:RMIGET MSRCS$:RMIGET/UPDATE=(ENHS:RM1GET) +EXECMLS$/LIB+LIB$:RMS/LIB 


0: 37:30 Aas Mac 


EXE 
EXE 


ro V04-00 
RMS.SRCIJRM1 


Page 


GET.MAR;1 


LCL on 8 es NOEXE NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC QUAD 


WRT NOVEC BYTE 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


0321 


